home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / misc / m2pica.lha / M2Pica / Txt / Timer2.def < prev    next >
Text File  |  1995-08-21  |  1KB  |  38 lines
  1. (*---------------------------------------------------------------------------
  2.     :Program.    Timer2.def
  3.     :Author.     Bernd Preusing
  4.     :Address.    Gerhardstr. 16  D-2200 Elmshorn
  5.     :Phone.      04121/22486
  6.     :Shortcut.   [bep]
  7.     :Version.    1.0
  8.     :Date.       21-Oct-88
  9.     :Copyright.  PD
  10.     :Language.   Modula-II
  11.     :Translator. M2Amiga
  12.     :Imports.    ---
  13.     :UpDate.     
  14.     :Contents.   Procedures to handle time and date.
  15.     :Remark.     
  16. ---------------------------------------------------------------------------*)
  17. DEFINITION MODULE Timer2;
  18.  
  19. IMPORT Timer;
  20.  
  21. TYPE
  22.    TimeVal = Timer.TimeVal;
  23.  
  24.  
  25. PROCEDURE AddTime(VAR dest,source: TimeVal); (* dest:=dest+source *)
  26. PROCEDURE SubTime(VAR dest,source: TimeVal); (* dest:=dest-source *)
  27. PROCEDURE CmpTime(VAR d1,d2: TimeVal): INTEGER;
  28.     (* -1: d2<d1  1: d2>d1  0: d2=d1 *)
  29.  
  30. PROCEDURE GetSysTime(VAR t: TimeVal);
  31.  
  32. (* zur Zeitmessung *)
  33. PROCEDURE StartTime();
  34. PROCEDURE StopTime(VAR t: TimeVal); (* Differenz seit StartTime *)
  35.  
  36.  
  37. END Timer2.def
  38.